home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / amipro3 / macros.cmz / INDEXALL.SMM < prev    next >
Encoding:
INI File  |  1992-11-18  |  3.4 KB  |  258 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [master]
  12.     
  13.     c:\amipro\dev\index.SAM
  14.     0
  15.     0
  16.     0
  17. [prn]
  18.     PostScript Printer
  19. [port]
  20.     LPT1:
  21. [lang]
  22.     1
  23. [desc]
  24.     Marca como entrada de <\m>ndice una palabra siempre que aparece.
  25.     Lotus WPD Marketing
  26.     Intermediate
  27.     While, MarkIndexWord
  28.     autorun
  29.     714876050
  30.     26
  31.     679166406
  32.     259
  33.     1
  34.     0
  35.     0
  36.     0
  37.     0
  38.     
  39.     
  40.     
  41.     
  42.     
  43.     
  44.     0
  45. [fopts]
  46.     0
  47.     1
  48.     0
  49.     0
  50. [lnopts]
  51.     2
  52.     Body Text
  53.     1
  54. [docopts]
  55.     5
  56.     2
  57. [GramStyle]
  58.     
  59. [ParaNum]
  60.     1
  61. [tag]
  62.     Est<\a>ndar
  63.     5
  64.     [fnt]
  65.         Tms Rmn
  66.         240
  67.         0
  68.         49152
  69.     [algn]
  70.         1
  71.         1
  72.         0
  73.         0
  74.         0
  75.     [spc]
  76.         17
  77.         0
  78.         1
  79.         0
  80.         0
  81.         1
  82.         100
  83.     [brk]
  84.         4
  85.     [line]
  86.         8
  87.         0
  88.         1
  89.         0
  90.         1
  91.         1
  92.         1
  93.         10
  94.         10
  95.         1
  96.     [spec]
  97.         0
  98.         0
  99.         
  100.         0
  101.         1
  102.         1
  103.         0
  104.         0
  105.         0
  106.         0
  107.     [nfmt]
  108.         24
  109.         1
  110.         2
  111.         ,
  112.         .
  113.         Pts
  114.     Est<\a>ndar
  115.     0
  116.     0
  117. [l1]
  118.     0
  119. [pg]
  120.     1
  121.     37 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  122. [edoc]
  123. <:#293,9025>Macro by <+!>Charlie Pappas<-!>
  124.  
  125. <:#279,9025>
  126.  
  127. <:#279,9025>define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  128.  
  129. <:#279,9025>define SetWindowText()    DllCall("user,SetWindowText,IHC", %1, %2)
  130.  
  131. <:#279,9025>define TitleBarMsg()    SetWindowText(GetActiveWindow(), %1)
  132.  
  133. <:#279,9025>
  134.  
  135. @Function@<:#293,9025>function<:f,,0,0,0> indexall()
  136.  
  137. <:#279,9025>ignorekeyboard(2)
  138.  
  139. <:#279,9025>StatusBarMsg("Adding Index All to Edit/Mark Text menu")
  140.  
  141. <:#279,9025>rmac = getrunningmacrofile$()
  142.  
  143. <:#279,9025>deletemenuitem<:f,,0,0,0>(1, "&Edici<\s>n", "Marcas de &texto<:f><:f,,0,0,0>", "Indice &todas<:f><:f,,0,0,0>")
  144.  
  145. insertcascademenuitem(1, "&Edici<\s>n", "Marcas de &texto", 1, "Indice &todas", "{rmac}!idx", "Marca como entrada de 
  146. <\m>ndice una palabra todas las veces que aparece.")
  147.  
  148. <:#279,9025>StatusBarMsg("")
  149.  
  150. <:#279,9025>'TitleBarMsg("Ami Pro")
  151.  
  152. <:#279,9025>StatusBarMsg("")
  153.  
  154. <:#279,9025>end function
  155.  
  156. <:#279,9025>
  157.  
  158. @Function@<:#293,9025>function<:f,,0,0,0> idx()
  159.  
  160. <:#279,9025>ignorekeyboard(2)
  161.  
  162. <:#279,9025>defstr word;
  163.  
  164. <:#279,9025>if assign(&word, curshade$()) = ""
  165.  
  166. <:#279,9025>    message("Seleccione la palabra que desee marcar como entrada de <\m>ndice.")
  167.  
  168. <:#279,9025>    return 0
  169.  
  170. <:#279,9025>endif
  171.  
  172. <:#279,9025>type("<[>esc]<[>esc]<[>esc]<[>ctrlhome]")
  173.  
  174. <:#279,9025>if (80 << len (word))
  175.  
  176. <:#279,9025>    word=left$(word, 79)
  177.  
  178. <:#279,9025>endif
  179.  
  180. <:#279,9025>while<:f,,0,0,0> (1)
  181.  
  182. <:#279,9025>    go = replace("", "", "", word, "")
  183.  
  184. <:#279,9025>    if go <<<;> 1
  185.  
  186. <:#279,9025>        break
  187.  
  188. <:#279,9025>    endif
  189.  
  190. <:#279,9025>    FieldAdd("Index ""{word} "" #")
  191.  
  192. <:#279,9025>wend
  193.  
  194. <:#279,9025>end function
  195.  
  196. <:#279,9025>
  197.  
  198. >
  199.  
  200. [Embedded]
  201. 00002688
  202. >
  203. [macsum] 2
  204. indexall 0 0 2 6
  205. idx 321 0 3 17
  206. [macse]
  207. 14 indexall
  208. 0 32 2
  209. 0 789 "Adding Index All to Edit/Mark Text menu"
  210. 0 802
  211. 13
  212. 8 1
  213. 0 520 1 "&Edici<\s>n" "Marcas de &texto" "Indice &todas"
  214. 0 529 1 "&Edici<\s>n" "Marcas de &texto" 1 "Indice &todas" "{1}!idx" "Marca como entrada de <\m>ndice una palabra todas las veces que aparece."
  215. 0 789 ""
  216. 0 789 ""
  217. 6 0
  218. 15
  219. 9
  220. 14 idx
  221. 0 32 2
  222. 0 24
  223. 13
  224. 0 805 &1 [X]
  225. 13
  226. 7 ""
  227. 18 0
  228. 11 00000154
  229. 0 3 "Seleccione la palabra que desee marcar como entrada de <\m>ndice."
  230. 5 0
  231. 15
  232. 9
  233. 0 6 "[27][27][27][16420]"
  234. 5 80
  235. 0 14 "{1}"
  236. 13
  237. 18 5
  238. 11 00000247
  239. 0 806 "{1}" 79
  240. 13
  241. 8 1
  242. 5 1
  243. 11 00000384
  244. 2 488 1 "" "" "" "{1}" ""
  245. 13
  246. 8 2
  247. 6 2
  248. 5 1
  249. 18 1
  250. 11 00000343
  251. 10 00000384
  252. 2 572 1 "Index ""{1} "" #"
  253. 10 00000247
  254. 6 0
  255. 15
  256. 9
  257. 00002713
  258.